home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / Start.dxr / 00001_Main movie script.ls next >
Encoding:
Text File  |  2000-01-25  |  9.8 KB  |  192 lines
  1. on startMovie
  2.   global gIntSkill, gCharSection, gContentPageNum, QuestionNum, gCharLang, LangChannel, g9SectionList, g10SectionList, g11SectionList, gStatus, gIntType, g1SectionList, g2SectionList, g3SectionList, g4SectionList, g5SectionList, g6SectionList, g7SectionList, g8SectionList, g12SectionList, g13SectionList, gSoundFlag, gSkillLoadOffset, gSkillLoadEnd, gSkillLoadOffset1, gSkillLoadOffset2, gSkillLoadOffset3, gSkillLoadOffset4, gSkillLoadOffset5, gSkillLoadOffset6, gSkillLoadOffset7, gSkillLoadOffset8, gSkillLoadOffset9, gOvStart, gGP1Start, gGP2Start, gGP3Start, gGP4Start, gRvStart, gAp1Start, gAp2Start, AppAnswersList, GPAnswersList, AppScoreList, GPScoreList, A1AnswersList, G1AnswersList, A1ScoreList, G1ScoreList, A2AnswersList, G2AnswersList, A2ScoreList, G2ScoreList, A3AnswersList, G3AnswersList, A3ScoreList, G3ScoreList, A4AnswersList, G4AnswersList, A4ScoreList, G4ScoreList, A5AnswersList, G5AnswersList, A5ScoreList, G5ScoreList, A6AnswersList, G6AnswersList, A6ScoreList, G6ScoreList, A7AnswersList, G7AnswersList, A7ScoreList, G7ScoreList, A8AnswersList, G8AnswersList, A8ScoreList, G8ScoreList, A9AnswersList, G9AnswersList, A9ScoreList, G9ScoreList, A10AnswersList, G10AnswersList, A10ScoreList, G10ScoreList, A11AnswersList, G11AnswersList, A11ScoreList, G11ScoreList, A12AnswersList, G12AnswersList, A12ScoreList, G12ScoreList, A13AnswersList, G13AnswersList, A13ScoreList, G13ScoreList, gGPNumQuesList, gAppNumQuesList, gCheckFloppyFlag, TheirAnswer, TheirAnswer1, TheirAnswer2, gintPopUpWinType, gintPopUpChannel, gLogonCount, gGPAttempts, gGP100, gAppAttempted, gMasteryList, gBookMarkUsed, gDataPath, gFileName, gFolderName, gInText, gOutText, gBookMark, gGPPageNumber, gClassList, gClassPointer, gClassTable, gClassNameTable, gClassSelector, gHallOfFameFlag, gRosterID, gRosterTable, gSkillTable, gPassword, gRosterList, gAppUpdateFlag, gDatabaseExists, gStudentKey, gStudentList, gStudentTable, gStudentNameTable, gStudentSelector, gFindList, gLogonVisible, gClassFloat, gClassCount, gBullets, gDelimiter, gMovie1, gMovie2, gUnitList, gInitPath, rootname, gLangPref, gSoundLevel, gButtonPressed, gTeacherCD, gChapter, gSplit, gCurrentComponent, gCurrentMenu, gCurrentDisplayMember, gCurrentPg, gCurrentNumOfPgs, gMenuCurrentLetter, gPictureIsBig, gComponentsList, gMenusList, gDisplayMembersList, gBoolBusyFlag, gStrWindowPages, allSpritesList, gLineHilited, gMainPath, gLanguagePref, gColorDepth, gPathDelimiter, gOldSoundLevel, gVdPort, gVdPlayer, gSystemVolumeLevel
  3.   if the colorDepth <> 8 then
  4.     set gColorDepth to the colorDepth
  5.     set the colorDepth to 8
  6.   end if
  7.   set the exitLock to 1
  8.   set gLineHilited to 0
  9.   set gLanguagePref to "E"
  10.   set gOldSoundLevel to the soundLevel
  11.   put "gOldSoundLevel =" && gOldSoundLevel
  12.   set gSoundLevel to integer(the soundLevel * 36.42000000000000171)
  13.   set gInitPath to the pathName
  14.   checkMainPath()
  15.   set gCurrentMainMember to EMPTY
  16.   set gCurrentDisplayMember to EMPTY
  17.   set gCurrentPg to 0
  18.   set gCurrentNumOfPgs to 0
  19.   set gMenuCurrentLetter to "A"
  20.   set gPictureIsBig to 0
  21.   set gComponentsList to []
  22.   set gMenusList to []
  23.   set gDisplayMembersList to []
  24.   set gBoolBusyFlag to 0
  25.   set allSpritesList to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48]
  26.   set counter to 1
  27.   put " " into field "menuSideMenu"
  28.   put " " into field "menuAlphaSideMenu"
  29.   set the textFont of member "menuSideMenu" to the textFont of member "menuformattingsample"
  30.   set the textHeight of member "menuSideMenu" to the textHeight of member "menuformattingsample"
  31.   set the textFont of member "menuAlphaSideMenu" to the textFont of member "menuformattingsample"
  32.   set the textHeight of member "menuAlphaSideMenu" to the textHeight of member "menuformattingsample"
  33.   TextTurnOnVisibles(allSpritesList)
  34.   updateStage()
  35.   set gAppNumQuesList to list(6, 5, 7, 7, 6, 8, 8, 6, 5, 6, 6, 8, 5, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)
  36.   set gUnitList to [1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10]
  37.   if the platform contains "Windows" then
  38.     openXLib(the pathName & "Xtras" & gPathDelimiter & "misc_x.dll")
  39.   else
  40.     openXLib(the pathName & "Xtras" & gPathDelimiter & "EjectDisk")
  41.     openXLib(the pathName & "Xtras" & gPathDelimiter & "FloppyName.rsc")
  42.     openXLib(the pathName & "Xtras" & gPathDelimiter & "misc_x Xobj")
  43.   end if
  44.   set gintPopUpWinType to 0
  45.   set gintPopUpChannel to 44
  46.   set gVdPort to 1
  47.   set gVdPlayer to 1
  48.   set gSystemVolumeLevel to gSoundLevel
  49.   hSetPreferences()
  50. end
  51.  
  52. on initDataGlobals
  53.   global gLogonCount, gGPAttempts, gGP100, gAppAttempted, gMasteryList, gBookMarkUsed, gDataPath, gFileName, gFolderName, gInText, gOutText, gBookMark, gGPPageNumber, gClassList, gClassPointer, gClassTable, gClassNameTable, gClassSelector, gHallOfFameFlag, gRosterID, gRosterTable, gSkillTable, gPassword, gRosterList, gAppUpdateFlag, gDatabaseExists, gTeacherLoggedOn, gStudentKey, gStudentList, gStudentTable, gStudentNameTable, gStudentSelector, gInitPath, gFindList, gLogonVisible, gClassFloat, gClassCount, gBullets, gDelimiter, gTeacherFlag
  54.   set gFolderName to "eapinit.ctx"
  55.   set gFileName to "eap.ini"
  56.   if readText(gInitPath) <> 0 then
  57.     return -1
  58.     exit
  59.   end if
  60.   set databaseString to "1"
  61.   set gDatabaseExists to integer(databaseString)
  62.   case gDatabaseExists of
  63.     0:
  64.       if the platform contains "Windows" then
  65.         set gDataPath to "A:"
  66.       else
  67.         set gDataPath to floppyName()
  68.       end if
  69.       set floppyfoundflag to verifyFloppy(gDataPath & gDelimiter, 0)
  70.       if floppyfoundflag = 1 then
  71.         set gDataPath to gDataPath & gDelimiter & "EAPScore" & gDelimiter
  72.         set floppyfoundflag to verifyFloppy(gDataPath & "Class" & gDelimiter & "Token", 1)
  73.       end if
  74.     1:
  75.       set gDataPath to line 2 of gInText & "eapscore" & gDelimiter
  76.   end case
  77.   set gFolderName to "Class"
  78.   set gFileName to "Token"
  79.   readText(gDataPath)
  80.   if readText(gDataPath) <> 0 then
  81.     return -2
  82.   end if
  83.   set classToken to EMPTY
  84.   set tokenLine to gInText
  85.   do("set classToken = " & tokenLine)
  86.   set gClassFloat to integer(getAt(classToken, 1))
  87.   set gClassCount to integer(getAt(classToken, 2))
  88.   if gClassCount = 0 then
  89.     set gTeacherFlag to 1
  90.     set gClassNameTable to EMPTY
  91.     InitSections()
  92.     exit
  93.   end if
  94.   set gLogonCount to 0
  95.   set gGPAttempts to 0
  96.   set gAppAttempted to 0
  97.   set gGP100 to 0
  98.   set gRosterTable to EMPTY
  99.   set gRosterID to EMPTY
  100.   set gRosterList to EMPTY
  101.   set gClassTable to EMPTY
  102.   set gClassList to EMPTY
  103.   set gStudentKey to EMPTY
  104.   set gClassPointer to 0
  105.   set gStudentSelector to 0
  106.   set gClassSelector to 1
  107.   set the text of member "classWindow" to EMPTY
  108.   set gHallOfFameFlag to "Y"
  109.   set gTeacherLoggedOn to 0
  110.   set gBullets to "ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó"
  111.   set gBookMark to EMPTY
  112.   set gGPPageNumber to EMPTY
  113.   set gBookMarkUsed to 0
  114.   set the text of member "displayClass" to " "
  115.   set the text of member "displayTeacher" to " "
  116.   set the text of member "messageWindow" to " "
  117.   set the text of member "showStudent" to " "
  118.   set the text of member "classWindow" to " "
  119.   set the text of member "studentWindow" to " "
  120.   set standardFont to the textFont of member "fontHolder"
  121.   set the textFont of member "displayClass" to standardFont
  122.   set the textFont of member "displayTeacher" to standardFont
  123.   set the textFont of member "messageWindow" to standardFont
  124.   set the textFont of member "showStudent" to standardFont
  125.   set the textFont of member "classWindow" to standardFont
  126.   set the textFont of member "studentWindow" to standardFont
  127.   set standardSize to the textSize of member "fontHolder"
  128.   set the textSize of member "displayClass" to standardSize
  129.   set the textSize of member "displayTeacher" to standardSize
  130.   set the textSize of member "messageWindow" to standardSize
  131.   set the textSize of member "showStudent" to standardSize
  132.   set the textSize of member "classWindow" to standardSize
  133.   set the textSize of member "studentWindow" to standardSize
  134.   set the textStyle of member "displayClass" to "plain"
  135.   set the textStyle of member "displayTeacher" to "plain"
  136.   set the textStyle of member "messageWindow" to "plain"
  137.   set the textStyle of member "showStudent" to "plain"
  138.   set the textStyle of member "classWindow" to "plain"
  139.   set the textStyle of member "studentWindow" to "plain"
  140.   set the text of member "displayClass" to EMPTY
  141.   set the text of member "displayTeacher" to EMPTY
  142.   set the text of member "showStudent" to EMPTY
  143.   set the text of member "classWindow" to EMPTY
  144.   set the text of member "studentWindow" to EMPTY
  145. end
  146.  
  147. on stopMovie
  148.   set the text of member "classWindow" to EMPTY
  149. end
  150.  
  151. on playSoundFile SoundFileName
  152.   global PathToStuf, fdelelimiter
  153.   set filePath to PathToStuf & "Sounds:" & SoundFileName
  154.   sound playFile 1, filePath
  155. end
  156.  
  157. on CleanUpTextHandlers
  158.   global allSpritesList, gComponentsList, gMenusList, gMainMembersList, gDisplayMembersList, gLanguage
  159.   TextTurnOffPuppets()
  160.   TextTurnOnVisibles(allSpritesList)
  161.   set gComponentsList to []
  162.   set gMenusList to []
  163.   set gMainMembersList to []
  164.   set gDisplayMembersList to []
  165.   set gLanguage to "E"
  166. end
  167.  
  168. on hSetPreferences
  169.   global gLanguagePref, gSystemVolumeLevel, gVdPort, gVdPlayer, gInitPath
  170.   set lFileName to "eappref.dat"
  171.   set writester to new(xtra("fileio"))
  172.   openFile(writester, gInitPath & lFileName, 1)
  173.   if (status(writester) = -43) or (status(writester) = -37) then
  174.     exit
  175.   else
  176.     if status(writester) = 0 then
  177.       set lInText to EMPTY
  178.       set lInText to readFile(writester)
  179.       set gLanguagePref to char 1 of lInText
  180.       set gSystemVolumeLevel to integer(char 2 to 4 of lInText)
  181.       set the soundLevel to integer(gSystemVolumeLevel / 36.42000000000000171)
  182.       put the soundLevel
  183.       set gVdPort to integer(char 5 of lInText)
  184.       set gVdPlayer to integer(char 6 of lInText)
  185.       closeFile(writester)
  186.       set writester to 0
  187.     else
  188.       alert("Problem reading Preference Information")
  189.     end if
  190.   end if
  191. end
  192.